﻿Public Class agregarHueso

    Private Sub btnRegistrarHueso_Click(sender As Object, e As EventArgs) Handles btnRegistrarHueso.Click
        Dim ta As New huesosDataSetTableAdapters.queries


        Dim nombre As String
        Dim tipo As String
        Dim ubicacion As String

        nombre = Me.txtNombre.Text
        tipo = Me.txtTipo.Text
        ubicacion = Me.txtUbicacion.Text



        ta.agregarHueso(nombre, tipo, ubicacion)


    End Sub

    

    Private Sub ListarToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ListarToolStripMenuItem1.Click
        listarHuesos.Show()
        Me.Hide()

    End Sub
End Class